how to add a loop in a large file conversion step in R

Question

I am using following script for an eQTL analysis using gene expression data as input.xlsx which has genes as rows and expression values in columns and