Selection.SelectCurrentSpacing (Word)

Extends the selection forward until a paragraph with different line spacing is encountered.

With Selection 
 .SelectCurrentSpacing 
 .ParagraphFormat.Space1 
End With