Do you mean along the lines of:

Dim vResults As Variant
With Sheets("Sheet1").Range("A8:A15")
    vResults = .Parent.Evaluate("=LINEST(" & .Offset(, 2).Address & "," & .Address & ",TRUE,TRUE)")
End With
vResults would be a 2d Array of the results.