You can clone the custom subscription form and create your customized webpart. Looks like around line 446 you could attach a where statement to the query.
ds = NewsletterInfoProvider.GetNewslettersForSite(SiteContext.CurrentSiteID).OrderBy("NewsletterDisplayName").Where("Your where clause").Columns("NewsletterDisplayName", "NewsletterName");