Speed perfmormance by moving to a Parallel.For