I don't know if it will work in your case, but you can use an array to point to an index in another array.

Something like

Arraywrite OffsetArray,[0,23,21,15,12,6,4,26]

For X = 1 to 8
Temp = OffsetArray[X]
LEDPattern[Temp] = 8
Next X