Paragraph.Next (Word)

Retorna um objeto Paragraph que representa o próximo parágrafo.

Next (Count)

Count: O número de parágrafos que você quer se mover para frente. O valor padrão é um.

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