I thought the problem was with situations where people "keep hitting enter twice after a Heading". However, if you've also got preceding paragraphs is the same Style, you could use:
Find = [^13]{1,}([!^13]@)[^13]{1,}
Replace = \1^p

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]