Paragraph.Next (Word)

Returns a Paragraph object that represents the next paragraph.

Next (Count)

Count: The number of paragraphs by which you want to move ahead. The default value is one.

For n = 0 To 8 
 Set myRange = ActiveDocument.Paragraphs(1).Next(Count:=n).Range 
 myRange.Collapse Direction:=wdCollapseStart 
 myRange.InsertAfter n + 1 & vbTab 
Next n