Function SplitWerte(Werte() As Double, Teilung As Double) As Double()()
    Dim swl As New List(Of Double())
    Dim a() As Double, t = Teilung, z = 1, i = 0
    Do
      t = z * Teilung : z += 1
      a = Werte.Skip(i).TakeWhile(Function(x) x <= t).ToArray
      swl.Add(a)
      i += a.Length
    Loop Until t > Werte.Last
    Return swl.ToArray
  End Function

    Dim a = {200, 300, 400, 400.5, 500, 801, 900, 1200, 1640}
    Dim t = 400
    Console.WriteLine("Werte: {0}", String.Join(", ", a))
    Console.WriteLine("Teilung: {0}", t)
    Console.WriteLine()
    Dim res = SplitWerte(a, t)
    For Each w In res
      Console.WriteLine("{0} Werte: {1}", w.Length, String.Join(" ", w))
    Next

Werte: 200, 300, 400, 400,5, 500, 801, 900, 1200, 1640
Teilung: 400
 
3 Werte: 200 300 400
2 Werte: 400,5 500
3 Werte: 801 900 1200
0 Werte:
1 Werte: 1640