I think this is a lot simpler than you are trying to make it.
In Word you can Select All and then go to Convert to Table, 8 columns, separate by paragraph. Then copy/paste the required columns to Excel.
In code terms the important steps in Word are
Code:
Selection.WholeStory
Selection.ConvertToTable Separator:=wdSeparateByParagraphs, NumColumns:=8, NumRows:=3, AutoFitBehavior:=wdAutoFitFixed
If you wanted the first column to be split into two columns, you could find/replace the soft return with a hard return and then make it a 9 column table