How to use a list of objects' name to extract some columns from their associated dataframes using loop in R?

I EDITED my question

I created a list of names of 78 objects that I want to work with them in my code using the following lines of code. Eventually, I want to apply more or less the same functions to all of them in my work

The above code produces the list of names in the nam.value as well as 78 objects which are dataframes each of which has 14 columns. I am trying to use a loop to extract certain columns from these 78 dataframes using the names list that I just produced. Right now,
I have a quick and dirty solution to it which involves writing the name of all these objects down:

But I am trying to use a shorter code and stop writing tens of lines of code by using a loop:

# The name of the columns that I want to keep and dropping the rest.
keeps = c("PRODUCT", "PERIOD","PARTNER", "INDICATOR_VALUE")
for (i in length(nam.value){
assign(nam.value[[i]], subset(nam.value[[i]], select = keeps) ) }

When I put the name of each object the above code, it works perfectly but for some reason it does not accept the names in the list. I don't need to use loops necessarily but trying with lapply and sapply, still I couldn't resolve my problem. Can anyone help?