So at the end of the show, you are going to have a table with 330 rows:
Sub SplitColumnIntoRows()
Dim oTbl As Table
Dim lngRow As Long
   Set oTbl = ActiveDocument.Tables(1)
   For lngRow = 1 To 330 Step 10
      oTbl.Cell(lngRow, 3).Select
      Selection.Cells(1).Split NumRows:=10, NumColumns:=1
   Next lngRow
lbl_Exit:
  Exit Sub
End Sub